home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / mad201.arc / MADIN200.ASC < prev    next >
Encoding:
Text File  |  1980-01-01  |  3.2 KB  |  77 lines
  1. 100 ROW%=12          ' THIS IS ROW LOCATION
  2. 110 COL%=20          ' THIS IS COLUMN LOCATION
  3. 120 FLDSIZ%=6        ' SIZE OF INPUT FIELD
  4. 130 FLDFG%=9         ' FIELD MASK FOREGROUND COLOR
  5. 140 FLDBG%=9         ' FIELD MASK BACKGROUND COLOR
  6. 150 CURSFG%=20       ' CURSOR FOREGROUND COLOR
  7. 160 CURSBG%=6        ' CURSOR BACKGROUNG COLOR
  8. 170 CHRFG%=7         ' CHARACTERS TYPED FOREGROUND COLOR
  9. 180 CHRBG%=1         ' CHARACTERS TYPED BACKGROUND COLOR
  10. 190 FLDCHR%=249      ' ASCII CODE OF FIELD MASK CHARACTER
  11. 200 CURCHR%=254      ' ASCII CODE OF CURSOR CHARACTER
  12. 210 SYSFIL$=""       ' VARIABLE TO HOLD USER SELECTABLE FILL CHARACTER
  13. 220 FILCHR$=""       ' THIS IS THE FILL CHARACTER TO BE USED
  14. 230 SYSTYP%=2        ' SYSTYP%=1 IS A/N RIGHT, =2 IS NUMERIC, 3 IS A/N LEFT
  15. 250 '-------------------------------------------------------------------------
  16. 20000 SYSALPHA$=""
  17. 20010 LOCATE ROW%,COL%
  18. 20020 FOR X=1 TO FLDSIZ%
  19. 20030 COLOR FLDFG%,FLDBG%
  20. 20040 PRINT CHR$(FLDCHR%);
  21. 20050 NEXT X
  22. 20060 IF FLDSIZ%=LEN(SYSALPHA$) THEN GOTO 20110
  23. 20070 LOCATE ROW%,COL%
  24. 20080 COLOR CURSFG%,CURSBG%
  25. 20090 PRINT CHR$(CURCHR%);
  26. 20100 LOCATE ROW%,COL%
  27. 20110 STROKE$=INKEY$
  28. 20120 REM
  29. 20130 IF LEN(SYSALPHA$)<>FLDSIZ% THEN GOTO 20230
  30. 20140 LOCATE ROW%,COL%-1
  31. 20150 COLOR CHRFG%,CHRBG%
  32. 20160 PRINT RIGHT$(SYSALPHA$,1);
  33. 20170 FOR Y=1 TO 200:NEXT Y
  34. 20180 LOCATE ROW%,COL%-1
  35. 20190 COLOR CURSFG%,CURSBG%
  36. 20200 PRINT CHR$(CURCHR%);
  37. 20210 FOR Z=1 TO 200:NEXT Z
  38. 20220 REM
  39. 20230 IF STROKE$ = "" THEN GOTO 20110
  40. 20240 IF STROKE$ = CHR$(13) THEN GOTO 20390
  41. 20250 IF STROKE$ = CHR$(8) AND LEN(SYSALPHA$)=0 THEN GOTO 20110
  42. 20260 IF STROKE$ = CHR$(8) AND LEN(SYSALPHA$)=FLDSIZ% THEN LOCATE ROW%,COL%-1
  43. 20270 IF STROKE$ = CHR$(8) THEN COLOR FLDFG%,FLDBG%::PRINT CHR$(FLDCHR%);:COL%=COL%-1:SYSALPHA$=LEFT$(SYSALPHA$,LEN(SYSALPHA$)-1):GOTO 20060
  44. 20280 IF SYSTYP%=1 OR SYSTYP%=3 THEN GOTO 20310    'ALPHANUMERIC FIELD
  45. 20290 IF SYSTYP%=2 THEN GOTO 20320    'NUMERIC FIELD
  46. 20300 SYSTYP%=1                       'DEFAULT TO ALPHA IF NOT SET TO 1 OR 2
  47. 20310 IF STROKE$ < CHR$(32) OR STROKE$ > CHR$(126) THEN GOTO 20110 ELSE GOTO 20330
  48. 20320 IF STROKE$ < CHR$(48) OR STROKE$ > CHR$(57) THEN GOTO 20110 ELSE GOTO 20330
  49. 20330 IF FLDSIZ%=LEN(SYSALPHA$) THEN GOTO 20110
  50. 20340 SYSALPHA$=SYSALPHA$+STROKE$
  51. 20350 COLOR CHRFG%,CHRBG%
  52. 20360 PRINT STROKE$;
  53. 20370 COL%=COL%+1
  54. 20380 GOTO 20060
  55. 20390 IF LEN(SYSALPHA$)<>FLDSIZ% THEN LOCATE ROW%,COL%:COLOR FLDFG%,FLDBG%:PRINT CHR$(FLDCHR%);:GOTO 20430
  56. 20400 LOCATE ROW%,COL%-1
  57. 20410 COLOR CHRFG%,CHRBG%
  58. 20420 PRINT RIGHT$(SYSALPHA$,1);
  59. 20430 IF SYSTYP%=1 THEN GOTO 20470                'ALPHA RIGHT
  60. 20440 IF SYSTYP%=2 THEN GOTO 20590                'NUMERIC
  61. 20450 IF SYSTYP%=3 THEN GOTO 20530                'ALPHA LEFT
  62. 20460 SYSTYP%=3:GOTO 20530                        'DEFAULT TO ALPHA LEFT
  63. 20470 FOR X=1 TO FLDSIZ%
  64. 20480 LET SYSFIL$=SYSFIL$+FILCHR$
  65. 20490 NEXT X
  66. 20500 LET SYSFIL$=RIGHT$(SYSFIL$,FLDSIZ%)
  67. 20510 LET SYSALPHA$=SYSFIL$+SYSALPHA$
  68. 20520 LET SYSALPHA$=RIGHT$(SYSALPHA$,FLDSIZ%)
  69. 20530 FOR X=1 TO FLDSIZ%
  70. 20540 LET SYSFIL$=SYSFIL$+FILCHR$
  71. 20550 NEXT X
  72. 20560 LET SYSFIL$=RIGHT$(SYSFIL$,FLDSIZ%)
  73. 20570 LET SYSALPHA$=SYSALPHA$+SYSFIL$
  74. 20580 LET SYSALPHA$=LEFT$(SYSALPHA$,FLDSIZ%)
  75. 20590 IF SYSTYP%=2 THEN SYSNUM=VAL(SYSALPHA$)
  76. 20600 RETURN
  77.